← Index
NYTProf Performance Profile   
For ../prof.pl
  Run on Wed Dec 14 15:57:08 2022
Reported on Wed Dec 14 16:00:37 2022

Filename(eval 431)[/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm:3]
StatementsExecuted 2584466 statements in 2.24s
Eval Invoked At/Users/ether/.perlbrew/libs/36.0@std/lib/perl5/Sub/Quote.pm line 3
Sibling evals1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32, 33, 34, 35, 36, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 72, 73, 74, 75, 76, 77, 78, 79, 80, 81, 82, 83, 84, 85, 86, 87, 88, 89, 90, 91, 92, 93, 94, 95, 96, 97, 98, 99, 100, 101, 102, 103, 104, 105, 106, 107, 108, 109, 110, 111, 112, 113
Subroutines
Calls P F Exclusive
Time		 Inclusive
Time		 Subroutine
71791222.20s3.42sJSON::Schema::Modern::Annotation::::newJSON::Schema::Modern::Annotation::new
11119µs50µsJSON::Schema::Modern::Annotation::::BEGIN@11.334JSON::Schema::Modern::Annotation::BEGIN@11.334
1118µs27µsJSON::Schema::Modern::Annotation::::BEGIN@74JSON::Schema::Modern::Annotation::BEGIN@74
1116µs21µsJSON::Schema::Modern::Annotation::::BEGIN@98JSON::Schema::Modern::Annotation::BEGIN@98
1115µs5µsJSON::Schema::Modern::Annotation::::BEGIN@16.335JSON::Schema::Modern::Annotation::BEGIN@16.335
1115µs60µsJSON::Schema::Modern::Annotation::::BEGIN@90JSON::Schema::Modern::Annotation::BEGIN@90
1114µs10µsJSON::Schema::Modern::Annotation::::BEGIN@80JSON::Schema::Modern::Annotation::BEGIN@80
1114µs11µsJSON::Schema::Modern::Annotation::::BEGIN@85JSON::Schema::Modern::Annotation::BEGIN@85
Call graph for these subroutines as a Graphviz dot language file.
Line State
ments		 Time
on line		 Calls Time
in subs		 Code
1{
223µs my $isa_check_for_keyword_5flocation = ${$_[1]->{"\$isa_check_for_keyword_5flocation"}};
311µs my $_QUOTED = ${$_[1]->{"\$_QUOTED"}};
411µs my $isa_check_for_absolute_5fkeyword_5flocation = ${$_[1]->{"\$isa_check_for_absolute_5fkeyword_5flocation"}};
511µs my $isa_check_for_unknown = ${$_[1]->{"\$isa_check_for_unknown"}};
610s my $_UNQUOTED = ${$_[1]->{"\$_UNQUOTED"}};
712µs my $coerce_for_absolute_5fkeyword_5flocation = ${$_[1]->{"\$coerce_for_absolute_5fkeyword_5flocation"}};
810s my $isa_check_for_keyword = ${$_[1]->{"\$isa_check_for_keyword"}};
911µs my $isa_check_for_instance_5flocation = ${$_[1]->{"\$isa_check_for_instance_5flocation"}};
10 package JSON::Schema::Modern::Annotation;
11291µs281µs
# spent 50µs (19+31) within JSON::Schema::Modern::Annotation::BEGIN@11.334 which was called: # once (19µs+31µs) by Sub::Quote::_clean_eval at line 11
no warnings 'closure';
# spent 50µs making 1 call to JSON::Schema::Modern::Annotation::BEGIN@11.334 # spent 31µs making 1 call to warnings::unimport
12
# spent 3.42s (2.20+1.22) within JSON::Schema::Modern::Annotation::new which was called 71791 times, avg 48µs/call: # 71790 times (2.20s+1.22s) by JSON::Schema::Modern::Utilities::A at line 261 of JSON/Schema/Modern/Utilities.pm, avg 48µs/call # once (73µs+58µs) by JSON::Schema::Modern::Utilities::A at line 177 of Sub/Defer.pm
sub new {
13 ($_QUOTED,$_UNQUOTED) if 0;
14# BEGIN quote_sub PRELUDE
15package JSON::Schema::Modern::Annotation;
16
# spent 5µs within JSON::Schema::Modern::Annotation::BEGIN@16.335 which was called: # once (5µs+0s) by Sub::Quote::_clean_eval at line 21
BEGIN {
1710s $^H = 2018;
1810s ${^WARNING_BITS} = "UUUUUUUUUUUUUUUUUUUU";
1915µs %^H = (
20 );
211279µs15µs}
# spent 5µs making 1 call to JSON::Schema::Modern::Annotation::BEGIN@16.335
22# END quote_sub PRELUDE
237179032.8ms my $invoker = CORE::shift();
247179033.2ms my $class = CORE::ref($invoker) ? CORE::ref($invoker) : $invoker;
257179026.5ms if ($class ne "JSON::Schema::Modern::Annotation") {
26 if ($Moo::MAKERS{$class}) {
27 if ($Moo::MAKERS{$class}{constructor}) {
28 package JSON::Schema::Modern::Annotation;
29 return $invoker->SUPER::new(@_);
30 }
31 Moo->_constructor_maker_for($class);
32 return $invoker->new(@_);
33 } elsif ($INC{"Moose.pm"} and my $meta = Class::MOP::get_metaclass_by_name($class)) {
34 return $meta->new_object(
35 $class->can("BUILDARGS") ? $class->BUILDARGS(@_)
36 : $class->Moo::Object::BUILDARGS(@_)
37 );
38 }
39 }
40 my $args = scalar @_ == 1
41 ? CORE::ref $_[0] eq 'HASH'
4271790205ms ? { %{ $_[0] } }
43 : Carp::croak("Single parameters to new() must be a HASH ref"
44 . " data => ". $_[0])
45 : @_ % 2
46 ? Carp::croak("The new() method for $class expects a hash reference or a"
47 . " key/value list. You passed an odd number of arguments")
48 : {@_}
49 ;
5071790111ms if (my @missing = grep !exists $args->{$_}, "annotation", "instance_location", "keyword", "keyword_location") {
51 Carp::croak("Missing required arguments: ".CORE::join(', ', sort @missing));
52 }
537179034.4ms my $new = bless({}, $class);;
547179029.1ms(exists $args->{"absolute_keyword_location"} and ($new->{"absolute_keyword_location"} = scalar do { my $value = do {
5571790135ms local $Method::Generate::Accessor::CurrentAttribute = {
56 init_arg => "absolute_keyword_location",
57 name => "absolute_keyword_location",
58 step => "coercion",
59 };
607179029.0ms (my $_return),
61 (my $_error), (my $_old_error = $@);
627179032.9ms (eval {
63 ($@ = $_old_error),
64 ($_return =
6571790136ms717901.15s$coerce_for_absolute_5fkeyword_5flocation->($args->{"absolute_keyword_location"})),
# spent 1.15s making 71790 calls to JSON::Schema::Modern::Annotation::__ANON__[JSON/Schema/Modern/Annotation.pm:35], avg 16µs/call
66 1
67 } or
68 $_error = CORE::ref $@ ? $@ : "coercion for \"absolute_keyword_location\" failed: ".$@);
697179027.3ms ($@ = $_old_error),
70 (defined $_error and CORE::die $_error);
717179075.7ms $_return;
72}
73;
74215372331ms14358262.6ms
# spent 27µs (8+19) within JSON::Schema::Modern::Annotation::BEGIN@74 which was called: # once (8µs+19µs) by Sub::Quote::_clean_eval at line 74
(do { no warnings "void"; package Type::Tiny; ((Scalar::Util::blessed($value) and $value->isa(q[Mojo::URL]))) or Type::Tiny::_failed_check($isa_check_for_absolute_5fkeyword_5flocation, "InstanceOf[\"Mojo::URL\"]", $value, "attribute_name","absolute_keyword_location","attribute_step","isa check","mgaca","0","varname","\$args->{\"absolute_keyword_location\"}"); $value }),
# spent 36.0ms making 71790 calls to Scalar::Util::blessed, avg 501ns/call # spent 26.6ms making 71790 calls to UNIVERSAL::isa, avg 370ns/call # spent 27µs making 1 call to JSON::Schema::Modern::Annotation::BEGIN@74 # spent 19µs making 1 call to warnings::unimport
75 $value
76}
77)),
78(exists $args->{"annotation"} and ($new->{"annotation"} = $args->{"annotation"})),
797179025.1ms(exists $args->{"instance_location"} and ($new->{"instance_location"} = scalar do { my $value = $args->{"instance_location"};
80287162134ms216µs
# spent 10µs (4+6) within JSON::Schema::Modern::Annotation::BEGIN@80 which was called: # once (4µs+6µs) by Sub::Quote::_clean_eval at line 80
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; defined($value) and do { ref(\$value) eq 'SCALAR' or ref(\(my $val = $value)) eq 'SCALAR' } }) or Type::Tiny::_failed_check($isa_check_for_instance_5flocation, "Str", $value, "attribute_name","instance_location","attribute_step","isa check","mgaca","0","varname","\$args->{\"instance_location\"}"); $value }),
# spent 10µs making 1 call to JSON::Schema::Modern::Annotation::BEGIN@80 # spent 6µs making 1 call to warnings::unimport
81 $value
82}
83)),
847179023.9ms(exists $args->{"keyword"} and ($new->{"keyword"} = scalar do { my $value = $args->{"keyword"};
8528716286.3ms218µs
# spent 11µs (4+7) within JSON::Schema::Modern::Annotation::BEGIN@85 which was called: # once (4µs+7µs) by Sub::Quote::_clean_eval at line 85
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; defined($value) and do { ref(\$value) eq 'SCALAR' or ref(\(my $val = $value)) eq 'SCALAR' } }) or Type::Tiny::_failed_check($isa_check_for_keyword, "Str", $value, "attribute_name","keyword","attribute_step","isa check","mgaca","0","varname","\$args->{\"keyword\"}"); $value }),
# spent 11µs making 1 call to JSON::Schema::Modern::Annotation::BEGIN@85 # spent 7µs making 1 call to warnings::unimport
86 $value
87}
88)),
897179017.6ms(exists $args->{"keyword_location"} and ($new->{"keyword_location"} = scalar do { my $value = $args->{"keyword_location"};
9028716282.8ms2115µs
# spent 60µs (5+55) within JSON::Schema::Modern::Annotation::BEGIN@90 which was called: # once (5µs+55µs) by Sub::Quote::_clean_eval at line 90
(do { no warnings "void"; package Type::Tiny; (do { package Type::Tiny; defined($value) and do { ref(\$value) eq 'SCALAR' or ref(\(my $val = $value)) eq 'SCALAR' } }) or Type::Tiny::_failed_check($isa_check_for_keyword_5flocation, "Str", $value, "attribute_name","keyword_location","attribute_step","isa check","mgaca","0","varname","\$args->{\"keyword_location\"}"); $value }),
# spent 60µs making 1 call to JSON::Schema::Modern::Annotation::BEGIN@90 # spent 55µs making 1 call to warnings::unimport
91 $value
92}
93)),
9471790493ms($new->{"unknown"} = scalar do { my $value = (
95 exists $args->{"unknown"}
967179027.5ms ? $args->{"unknown"}
97 : 0);
98215372115ms236µs
# spent 21µs (6+15) within JSON::Schema::Modern::Annotation::BEGIN@98 which was called: # once (6µs+15µs) by Sub::Quote::_clean_eval at line 98
(do { no warnings "void"; package Type::Tiny; ((!ref $value and (!defined $value or $value eq q() or $value eq '0' or $value eq '1'))) or Type::Tiny::_failed_check($isa_check_for_unknown, "Bool", $value, "attribute_name","unknown","attribute_step","isa check","mgaca","0","varname","\$args->{\"unknown\"}"); $value }),
# spent 21µs making 1 call to JSON::Schema::Modern::Annotation::BEGIN@98 # spent 15µs making 1 call to warnings::unimport
99 $value
100}
101),
102 return $new;
103 }
10413µs $$_UNQUOTED = \&new;
105}
106110µs1;
107
108;
Report produced by the NYTProf 6.12 Perl profiler, developed by Tim Bunce based on work by Adam Kaplan and Salvador Fandiño García.